home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol025 / driver.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  896 b   |  26 lines
  1. 5 CLS:KEY OFF:WIDTH 80:PRINT "A = 17 CPI":PRINT "B = 12 CPI":PRINT "C = 10 CPI":PRINT "D = 8.5 CPI":PRINT "E = 6 CPI":PRINT "F = 5 CPI":PRINT "8 = 8 Lines/Inch"
  2. 6 PRINT "6 = 6 Lines / Inch":PRINT "S = SYSTEM"
  3. 7 LPRINT CHR$(27);"1"
  4. 10 A$=INKEY$
  5. 20 IF A$="A"OR A$="a"THEN GOSUB 117
  6. 30 IF A$="B"OR A$="b"THEN GOSUB 112
  7. 40 IF A$="C"OR A$="c"THEN GOSUB 110
  8. 50 IF A$="D"OR A$="d"THEN GOSUB 108
  9. 60 IF A$="E"OR A$="e"THEN GOSUB 106
  10. 70 IF A$="F"OR A$="f"THEN GOSUB 105
  11. 75 IF A$="8"THEN GOSUB 120
  12. 78 IF A$="6"THEN GOSUB 130
  13. 80 IF A$="S"OR A$="s"THEN GOSUB 200
  14. 90 GOTO 10
  15. 105 LPRINT CHR$(30):LPRINT CHR$(31):RETURN
  16. 106 LPRINT CHR$(29):LPRINT CHR$(31):RETURN
  17. 108 LPRINT CHR$(28):LPRINT CHR$(31):RETURN
  18. 110 LPRINT CHR$(30):RETURN
  19. 112 LPRINT CHR$(29):RETURN
  20. 117 LPRINT CHR$(28):RETURN
  21. 120 LPRINT CHR$(27);"8":RETURN
  22. 130 LPRINT CHR$(27);"6":RETURN
  23. 150 STOP
  24. 200 SYSTEM
  25. (29):RETURN
  26. 117 L